home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / streams.swg / 0003_TEMSStream.Done Bug.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-26  |  2.2 KB  |  76 lines
  1. {
  2. There's a bug in TEMSStream.Done.  It leaves EMSCurHandle and EMSCurPage with
  3. the last used values, even though it's releasing an EMS handle, which may
  4. well be EMSCurHandle.  This means that if you allocate a second EMSStream
  5. after disposing of the first one, it can happen that it sees the page frame
  6. as already valid, when in fact it should load it.
  7. A workaround is to set EMSCurHandle := $FFFF after calling TEMSStream.Done.
  8.  
  9. Here's some sample code to demonstrate the bug.  It was posted to Usenet's
  10. comp.lang.pascal:
  11.  
  12.   From: paf@fbit.msk.su (Alexander Petrosyan)
  13.   Subject: TEMSStream trouble (Bug?)
  14.   Date: Mon, 26 Sep 94 16:24:34 +0400
  15.  
  16.   Try to compile and run this prog:
  17. }
  18.  
  19. uses
  20.   Objects,
  21.   wincrt;
  22.  
  23. var
  24.   ES: TEMSStream;
  25.   A, B: array [0..$400-1] of Byte;
  26.   I, J: Integer;
  27.  
  28. procedure Error;
  29. begin
  30.   WriteLn ('Error !');
  31.   ES.Done;
  32.   Halt (1);
  33. end;
  34.  
  35. begin
  36.   FillChar (A, $400, 1);
  37.   ES.Init (18 * $400, 18 * $400);            { Allocate 18K EMS }
  38.   for I := 1 to 18 do ES.Write (A, $400);    { Fill with 1 }
  39.   ES.Seek (0);
  40.   for I := 1 to 10{*} do begin                  { Read 10K of 18K }
  41.     ES.Read (B, $400);
  42.     for J := Low (B) to High (B) do if B[J] <> 1 then { Verify }
  43.       Error;
  44.   end;
  45.   ES.Done;                                   { Free allocated EMS }
  46.  
  47. { Above code causes problem to below code }
  48.  
  49. (*  emscurhandle := $ffff;  *)    { Uncomment this line to fix the bug }
  50.  
  51.   FillChar (A, $400, 2);
  52.   ES.Init (79 * $400, 79 * $400);            { Allocate 79K EMS }
  53.   for I := 1 to 79 do ES.Write (A, $400);    { Fill with 2 }
  54.   ES.Seek (0);
  55.   for I := 1 to 79 do begin                  { Verify ALL }
  56.     ES.Read (B, $400);
  57.     for J := Low (B) to High (B) do if B[J] <> 2 then
  58.       Error;  { I'm getting error at this point. Why? }
  59.   end;
  60.   ES.Done;
  61.  
  62.   writeln('Done');
  63. {
  64.   It seems that 1st page of this stream when being read are mapped not to the
  65.   right place but to some page of previous stream.
  66. }
  67. end.
  68.  
  69. (*
  70. It seems to me that error occurs when stream position at dispose time not in
  71. last 16K EMS page (stream must be readed before dispose).
  72.  
  73. In this example we are writing 18K but reading 10K leaving stream position
  74. not  in last page. When I change 10 to 18 at {*} all goes OK.
  75. *)
  76.